home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / gt_power / mailbats.zip / MAILBAGR.BAT < prev    next >
DOS Batch File  |  1990-12-11  |  2KB  |  56 lines
  1. :MAILBAGR.BAT - BATCH FILE TO BAG OUTGOING MAIL - GT15
  2. @ECHO OFF
  3. GTCD >NUL
  4. ECHO Y|ERASE \MAILWORK\*.*
  5. @ECHO OFF
  6. ECHO  ╒═════════════════════════════════════════════════════╕ 
  7. ECHO  │                INITIATING MAIL BAGGER               │ 
  8. ECHO  ╘═════════════════════════════════════════════════════╛ 
  9. @TRACE BAGGING MESSAGE FOR MAIL-%1 //%GTPATH%\GTMAIL.LOG >NUL
  10. @ECHO OFF
  11. IF "%1" == "" GOTO NO_PARM
  12. GOTO PARM_OK
  13. :NO_PARM
  14. ECHO  REQUIRED Parameter not specified
  15. ECHO 
  16. ECHO           Usage is MAILBAGR XXX
  17. ECHO                 where  XXX is a 3 character log identifier
  18. ECHO           seven optional parameters may also be passed
  19. ECHO  
  20. ECHO           Your imput was: MAILBAGR %1
  21. ECHO 
  22. GOTO QUIT
  23. :PARM_OK
  24. ECHO  ╒═════════════════════════════════════════════════════╕ 
  25. ECHO  │ TESTING IF THIS IS THE FIRST MAILBAG RUN FOR %NMAIL$%   │ 
  26. ECHO  ╘═════════════════════════════════════════════════════╛ 
  27. NEWDAY %GTPATH%\MBAGGER.TBS
  28. IF ERRORLEVEL 1 GOTO NEXT
  29. @TRACE .....Running BAGGER without /N or X //%GTPATH%\MAIL-%1.LOG  >NUL
  30. ECHO  ╒═════════════════════════════════════════════════════╕ 
  31. ECHO  │         THE FIRST MAILBAG RUN FOR TODAY             │ 
  32. ECHO  ╘═════════════════════════════════════════════════════╛ 
  33. NOTEIT FIRST Mailbag Run for %NMAIL$% MAIL-ONE >NUL
  34. ECHO 
  35. @TRACE .....Running MBag to bag messages //%GTPATH%\GTMAIL.LOG >NUL
  36. @CONCOPY %GTPATH%\MAIL-%1.LOG MBAG412 /D5 /L /QO /Z
  37. ERROR-0 >%GTPATH%\MBAGGER.TBS
  38. ECHO 
  39. GOTO END
  40. :NEXT
  41. ECHO  ╒═════════════════════════════════════════════════════╕ 
  42. ECHO  │   NOT THE FIRST MAILBAG RUN FOR TODAY - USING /X    │ 
  43. ECHO  ╘═════════════════════════════════════════════════════╛ 
  44. ECHO 
  45. NOTEIT NEXT Mailbag Run MAIL-%1 >NUL
  46. @CONCOPY %GTPATH%\MAIL-%1.LOG MBAG412 /X /D15 /L /NP /QO /Z
  47. ECHO 
  48. GOTO END
  49. :END
  50. MSROUTE
  51. ECHO 
  52. ECHO  ╒═════════════════════════════════════════════════════╕ 
  53. ECHO  │         BAGGING OF MAIL COMPLETED FOR MAIL-%1      │ 
  54. ECHO  ╘═════════════════════════════════════════════════════╛ 
  55. :QUIT
  56.